home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / QS4.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  30 lines

  1. 0  TEXT : HOME 
  2. 9  PRINT : PRINT : PRINT 
  3. 10  PRINT "If you were the coach of the Minnesota  Vikings football team, what kind of     player would you choose to block for    the quarterback?"
  4. 12  PRINT : PRINT 
  5. 14  PRINT "     a)  A massive player"
  6. 15  PRINT 
  7. 16  PRINT "     b)  A less massive player"
  8. 17  PRINT 
  9. 18  PRINT "     c)  It makes no difference."
  10. 19  PRINT 
  11. 20  PRINT "     d)  I hate football."
  12. 21  PRINT : PRINT 
  13. 30  GET KY$
  14. 39  HOME : PRINT : PRINT : PRINT : PRINT : PRINT 
  15. 40  IF KY$ = "c"  OR KY$ = "C"  THEN  GOSUB 110
  16. 50  IF KY$ = "a"  OR KY$ = "A"  THEN  GOSUB 100
  17. 60  IF KY$ = "b"  OR KY$ = "B"  THEN  GOSUB 120
  18. 70  IF KY$ = "d"  OR KY$ = "D"  THEN  GOSUB 130
  19. 80  IF KY$ < >"a"  OR KY$ < >"A"  OR KY$ < >"b"  OR KY$ < >"B"  OR KY$ < >"d"  OR KY$ < >"D"  THEN  GOSUB 140
  20. 100  PRINT "Right!!  You know your football.  Now,  for more physics."
  21. 102  GOSUB 200: PRINT  CHR$(4);"run qs5"
  22. 110  PRINT "Yes, it does make a difference.  Try    again."
  23. 112  GOSUB 200: GOTO 0: RETURN 
  24. 120  PRINT "Please do not consider being a football coach.  Try again."
  25. 122  GOSUB 200: GOTO 0: RETURN 
  26. 130  PRINT "Tough luck!  Try again anyway."
  27. 132  GOSUB 200: GOTO 0: RETURN 
  28. 140  PRINT "Please enter only A, B, C, or D!!"
  29. 142  GOSUB 200: GOTO 0: RETURN 
  30. 200  FOR I = 0 TO 3000: NEXT : RETURN